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PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


PPPPPPPP AAAAAA SSSSSSSS_ LL III111 NN NN EEEEEEEEEE LL 
PPPPPPPP ALRLhE SSSSSSSS_ LL IIII11 NN NN EEEEEEEEEE LL 
PP PP AA AA SS LL II NN NN EE LL 
PP PP AA AA SS LL II NN NN EE LL 
PP PP AA AA SS LL I] NNNN NN EE LL 
PP PP AA AA SS LL II NNNN NN EE LL 
PPPPPPPP AA AA SSSSSS LL I] NN NN NN EEEEEEEE LL 
PPPPPPPP Ba AA SSSSSS LL I] NN NN NN EEEEEEEE LL 
PP AAAAAAAAAA SS LL I] NN NNNN EE LL 
PP AAAAAAAAAA ss it II NN NNNN EE LL 
PP Ah ab SS LL II NN NN EE LL 
PP aa Aa SS LL II NN NN EE LL 
PP ah AA SSSSSSSS LLLLLLLLLL IIIII1 NN NN EEEEEEEEEE LLLLLLLLLL 
PP AL AA SSSSSSSS LLLLLLLLLL IIII11 NN NN EEEEEEEEEE CLLLLLLLLL 
LL III] SSSSSSSS 

LL I1I11] SSSSSSSS 

LL I] SS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HI] SSSSSSSS 


| lame 
ee 


(ae ss ss Bs ne a he os ne 
EN ee a ne a ee ee 


od 
| lame 
a 
ory 
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" PASSLINELIMIT2 LINELIMIT procedure 18-58 ~3e0" 138% 01:43:06 AX-11 Bliss-32 V4.0-74 Page 
| 14-Sep-1984 12:51: PASRTL.SRCJPASLINELI.852;1 
3 1 4d MODULE PASSLINELIMIT2 ( % Jets *"LINELIMIT procedure’ 
3 ¢ Oe gD ENT = ‘1-0 ! File: PASLINELI.832 Edit: $8L1001 
i § 004 | BEGIN 
: $ 09 } TERR ele BURR aE RNR PRET CIR ITI 
Ps Hid @ 
3 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
; 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
: 19 Bere : ;< ALL RIGHTS RESERVED. * 
Py ° Ye 
3 i pore 1 !* THIS SOFTWARE iS FURNISHED were A LICENSE AND MAY BE ee? AND cor iee * 
3 1 it 1 !e one 4 IN ACCORDANCE WITH THE TERMS OF SUCH bs CERSe AND WITH THE * 
: 14 014 1 !* INCLUSION OF THE ABOVE Spd NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 15 0015 1 !® tOpies THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i Bote : fe TRANSFERRED. * 
4 ‘fe & 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 21 0021 1 !* CORPORATION, * 
$ $§ 4 1 !e * 
3 2 002 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 
; 24 00246 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
s 0025 1 !* * 
; @& 0026 1 !* * 
: 27 0027 1 Seeeeererer ere r eee eee RARER AAA T AAT A EERE AAA TAE RAAT 
; a 0028 1! 
3 $3 0029 1 
3 0 0030 1 !++ 
. 0031 1 ! FACILITY: Pascal Language Support 
> itt 1! 
; $7 0033 1 | ABSTRACT: 
; 4 0034 1 | 
; H ot $4 ; This procedure implements the Pascal LINELIMIT procedure. 
; HH sit EA : ENVIRONMENT: User mode - AST reentrant 
: 39 0039 AUTHOR: Steven B. Lionel, CREATION DATE: 14-October-1981 
; 6 0041 1 | MODIFIED BY: 
i: 642 0042 1! 
3s 3 0043 1! 1-001 - Original. SBL 14-October-1981 
: 66 0044 1 i- 


; 


ov 
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ae Declarations 2 14 $071 3be 03:97:98 PASRTL ERC IPASLINECI B92:1 a (28 


g 
| 


— 


RSBTTL ‘Declarations’ 
! PROLOGUE DEFINITIONS: 


yo oP 
Ne 
Seeeee 


CON AVE WN $0 ODNAUES WN SH CODVNOAOVFSOOONOM 


REQUIRE "RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
' 


TABLE OF CONTENTS: 


FORWARD ROUTINE 


3 1 

3 1 

3 1 

; 1 

; 50 1 

: 11 1 

5 11 1 

s 11 1 

5 11 1 

; O119 | 

3 0 : PASSLINELIMIT2: NOVALUE; ' Set Linelimit for file 
:  & 01 1! 

_ 4 1 ! MACROS: 

3 6 1 1! 

= 01 1 ! NONE 

5 64 01 1! 

3s 6 65 01 1 ! EQUATED SYMBOLS: 
3 66 01 1! 

; oF ois 1! NONE 

: 68 01 1! 

5; & 01 1 ! FIELDS: 

3 70 01 1! 

3 71 01 1! NONE 

: 7 01 1! 

3 7 0135 1 =! OWN STORAGE: 
; 676 0136 1! 

; 75 0137 1! NONE 

; 0138 +1! 


6 
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Bet rt te ELIRITS - Set Linelimit for file 12-308-} oR 93:67:98 PASRTL.SRCJPASLINELI.852;1 
78 139 ZSBITL *PASSLINELIMIT2 = Set Linelimit for file’ 
79 140 GLOBAL ROUTINE PASSLINELIMIT2 ( ! Set Linelimit for file 
80 141 PFV: REF SPASSPFV_FILE yan et: ' File variable 
e 128 LINELIMIT: REF VECTOR [1, LONGI, ' New Linelimit 
14 ERROR ' Error unwind address 
8 144 ) : NOVALUE = 
Sc 1e lee 
a8 ef ! FUNCTIONAL DESCRIPTION: 
88 rk This procedure sets a new Limit for the number of Lines that may 
89 29 be written to the specified file. For non-textfiles, each PUT 
oy 23 is considered one Line. 
38 ' CALLING SEQUENCE: 
Be 22 CALL PASSLINELIMIT2 (pfv.mr.r, Linelimit.rl.r C, error.j.rJ) 
4 33 FORMAL PARAMETERS: 
98 59 PFV - The Pascal File Variable (PFV) passed by reference. 
+4 $4 The structure of the PFV is defined in BASPFV REQ. 
01 6¢ LINELIMIT - The new Linelimit for the file. A signed longword 
4 6 integer value. A negative value denotes no Limit. 
04 ERROR - Optional. If specified, the address to unwind to 
be in case of an error. 
4 IMPLICIT INPUTS: 


NONE 
IMPLICIT OUTPUTS: 
FCB CFCBSL_LINELIMITJ 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS- 
NONE 
! SIGNALLED ERRORS: 
FILNOTOPE - file not open 


BEGIN 


LOCAL 

FCB: REF SPASSFCB_CONTROL_BLOCK,! File control block 
PFV_ADDR: VOLATILE, ' Enable argument 
UNWIND_ACT: VOLATILE, ! Enable argument 


me a a et a a ad ot 4 ws —) Ls as — 


Lal AAI ARO ROROPROPOPOPUfy 
LUNSSSRVUSUVRONVS Sanorrun—osS 
Bre SS SSRN ES SONOS ARUN OO ae 


DO OO O OW WWW OOO NI NIN SSN NNO OOOO 


Bee Be Ree Be ee Se Re Bee Be Be OHHH Re BHR Oe we Oe Oe Oe Oe Oe ee Oe Be Oe Oe Oe Oe Oe Oe Oe He Oe Oe Se oe HOHE OH Oe Be we 
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~Sep-19 4 3:87:98 UPASRTL-SRCIPASLINELI .B 2:1 


Enable argument 


PASS INELIAI Te LINELI 


Bre edure 
PASSLI1 ] 


1 
IT2 = Set Linelimit for file 1 
ERROR_ADDR: VOLATILE; ! 


CT 
co 


135 


BUILTIN 
ACTUAL COUNT; 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


a ACTUALCOUNT () GEQU 3 
ERROR_ADDR = .ERROR; ! Set unwind address 


set the enable argument for the PFV address. 
PFV_ADDR = PFV CPFVSR_PFVI; 

"validate and lock the PFV. 
PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 
set unwind action to unlock file. 
UNWIND_ACT = PAS$K_UNWIND_UNLOCK; 


+ 
Resolve lazy lookahead and open INPUT or OUTPUT. 


AOEAAACOMMIMMNVNMNYVIVIYI ES SELLER EE 


i aor -PFV CPFV$V_VALIDJ 
PASSSLOOK_AHEAD (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 
14 
Verify that file is open. 
IF NOT .PFV CPF V$V_OPEN] ! Not open 
SPASSIO_ERROR (PAS$_FILNOTOPE,0); 


'¢ 
Set new Linelimit. 


o 09 09 00 09 09 00 09 09 08 INI SI SIS NN NNN NSO OO 


FCB CFCBSL_LINELIMIT] = .LINELIMIT (0); 


'¢ 
! Indicate successful completion 
' Unlock file and return. 


SDOOSOCOSOOCOCOCOSOSOSOSOCOOSCOSCOCOSCOOC COO COCOOCSO OOOO OOO OOOO OOOOOOOOOCOOOCOOOOOCOO 
PIP DP INIPYNINGNGPNYINININPIPY NNN NNINPYNININPYNINYNINININONINININPYPINYREPIPININPIPIPUNPININPINININYINININININ 2 SS 
RIPDPOPINIPNINININYINININYNYPYDIPINYIPYNINPYNINYNINPININPINIPININONIPU NIP PoNoNoNononononononopopofropnopoporonrornrnrn 2s 


DN & BB BEE EE BE EWAN ponononononononony So -- nd- he -2 > Dee wed he oe ee oe 
MO OONOA VEWN $$ OOONOA UENO ODNO UE WIN 0 ODNOU EWN OOO NOUM EWR O00 


Be Se Oe Be Be Se Be Be Se Be Se Ge Se Se Fe Se Se Se Se Ge Be Se Be Be Se Se Se Ge Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se ee Se Se Se ee Se SH Se Se Stee we 


ee ee ee ee et ee ee et ee ee ed ed ed 


Page 
. ( 


4 


3) 


-v ~«| 
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Bot st he INELI - Set Linelimit for file aa 7 3:97:98 PASRTL_SRCIP PASLI NELI. B32;1 - (3) 

; 19 3 FCB (FCBSL_STAT $] = 0; 

; 19 4 PFV LPFVSV— LOCK 0; 

3; 61946 5 

; #195 § RETURN; 

; 196 025 

3; 197 0258 END; ! End of routine PASSLINELIMIT2 
TITLE PA RSM [NEL INE Te LINELIMIT procedure 
-IDENT \1=001\ 
EXTRN PASSE INEL IAI Te PASS$S$IO_HANDLER 
EXTRN PASSS$VALIDATE_PFV 


“EXTRN PASS$S$LOOK HERD 
~EXTRN PASSSSIGNAL PAS$K_F ILNOTOPE 


~-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


00c¢ 00000 .ENTRY PASSLINELIMIT2, Save R2,R3,R6,R7 7 0140. 
5E 08 C2 0000 SUBL2 ; 
7E 4 0000 CLRL ERROR PADDR : 0190 
04 AE 7C 00007 LRQ UNWIND ACT : 
6D 0047 CF DE OO00A MOVAL 4$, (F 44) : 
03 6C 91 0000F MPB_ ss (AP), > 0204 | 
04 1F 00012 BLSSU.-'1$ : 
6E 0c AC DO 00014 MOVL ERROR, ERROR_ADDR 3 0206) 
56 04 AC DO 00018 1$: MOVL  PFV, R6 : 0212 
08 AE 56 D0 0001C MOVL R6, PFV_ADDR : | 
00000000G 00 16 00020 JSB PASSSVALCIDATE_PFV ; 0218 
04 AE 01 DO 00026 MOVL #1, UNWIND_ACT : 0224) 
06 06 A6 EB O002A BLBS 6(R6), 5 0630 | 
000000006 00 16 o00ee JSB PASS$$LOOK_AHEAD : 0232 
OE O07 Ab 05 £0 00034 2$: BBS #5, 7(R6), 3$ 3 0238 | 
7E 04 00039 CLRL -(SP) : 0240 | 
7E 00G 8F 9A 00038 MOVZBL #PAS$K_FILNOTOPE, -(SP) 3 
000000006 00 02 FB 00058 CALLS #2, PASSSSIGNAL : 
—O a7 08 BC DO 00047 3$: MOVL @LINELIMIT, -32(FCB) : 0246 
D4 6A? D4 0004C CLRL - ; 0253 
07 Ab 80 8F BA O004F BICB2 #128, 7(R6) 7 0254 
04 00054 RET > 0258 | 
0000 00055 4$: -WORD Save nothing ; 0190. 
50 08 aC 00 00057 MOVL 8(AP), RO - 
50 04 ad 00 90028 MOVL 4(RO), RO : 
F4 AO 9F OO05F PUSHAB ERROR_ADDR : 
fF8 AO 9F 464: PUSHAB UNWIND ACT ; 
FC AO 9F 0006 PUSHAB PFV_ADDR : 
03 DD 00068 PUSHL @# F 
5E bo 0006A PUSHL SP : 
7 04 AC 7D 0006C MOVQ 4(AP) : 
000000006 00 03 FB 30078 CALLS #3, PASSSIO. HANDLER : 
04 00077 RET 3 


; Routine Size: 120 bytes, Routine Base: _PASSCODE + 0000 


; 0259 1 


Ba Oe Be Be Be Se Be Be Oe Be Se BASH Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Se Se Se Se Se eee SHS SH Se Se Se Se ae Se Se SH Se SHS Se eee Se ae 


. 
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1-001 PAS CINELIAIS - Set Linelimit for file Sep aati 03:3F ‘98 PASRTL’ SR RCIP PASLINELI. 5 2:1 . (3) 1 
; 199 8 60 1 !<BLF/PAGE> 3 
3 201 8 ] ! END ! End of module PASSLINELIMIT2 : 
: 202 0 88 0 ELUDOM : 
; PSECT SUMMARY | ; 
: Name Bytes Attributes 3 
; PASSCODE 120 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 
3 Library Statistics ; 
Roe ot ea ke) aoe, oomeee Symbols -<------- Pages Processing ; 
s File Total Loaded Percent Mapped Time : 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 : 
3 ~$255$DUA28:CPASRTL. OBJ JPASLIB. L32;1 427 90 21 33 00:00.4 : 


COMMAND QUALIFIERS 


FLSSE/EME CROC? ELD. ETE, APT IRL EE S/HOTRACEAL ES M1, 1501 PASL EMEL LPR ISO SG rPASL IMCL! MSRC$:PASLINELI/UPDATE=(ENH$:PASL INEL I 


Size: 120 code 3 0 data bytes 


Run Time: 00:04. 
Elapsed Time: 1 


Lines/CPU Min: 3267 
Lexemes/CPU-Min: 9913 
Memory Used: 67 pages 
Compi.cation Complete 


ENT CORPORATION 
ND PROPRIETARY | 


099 VAx/vMS V4.0 


